home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Online / newscoaster / install_newscoaster < prev    next >
Text File  |  2002-10-27  |  6KB  |  153 lines
  1. ;
  2. ; $VER: Installer Script for NewsCoaster (c) Mark Harman (14.03.02)
  3. ; (full version)
  4. ;
  5.  
  6. (set #wrongOS  "NewsCoaster needs at least OS3.0 to run\n")
  7. (set #wrongMUI "NewsCoaster needs at least MUI3.8 to run\n")
  8. (set #wrongCPU "NewsCoaster needs at least a 68020 CPU to run\n")
  9. (set #icons_prompt "Which icons do you wish to install?\n")
  10. (set #toolbar_prompt (cat "Do you wish to install the Graphical Toolbar?\n"
  11.     "(If you're updating an installation, selecting Yes will overwrite any\n"
  12.     "existing toolbar set you have installed in the Icons folder.)\n"
  13.     ))
  14. ;(set #charset_pl_prompt (cat "Do you wish to install ARexx scripts to deal with\n"
  15. ;    "charset?\n"))
  16. (set #NewsCoaster_dir (cat "Choose a folder to install NewsCoaster in - an\n"
  17.                            "extra drawer will be created. (If you wish to\n"
  18.                            "update NewsCoaster, please select the folder\n"
  19.                            "which contains the NewsCoaster folder.)\n"))
  20.  
  21. (set #done (cat "\nNewsCoaster has been succesfully installed.\n\n"))
  22.  
  23. (set OS_ver (getversion "exec.library" (resident)))
  24. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  25.  
  26. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  27. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  28.  
  29. (set cpu_type (database "cpu"))
  30. (if (< cpu_type "68020") (abort #wrongCPU))
  31.  
  32. (complete 0)
  33.  
  34. ; NewsCoaster icon type
  35. (set Icon_set
  36.         (askchoice
  37.                 (prompt #icons_prompt)
  38.                 (help @askoptions-help)
  39.                 (choices "Amiga 4 Colour" "NewIcons")
  40.                 (default 1)
  41.         )
  42. )
  43.  
  44. ; copy toolbar?
  45. (set Copy_toolbar
  46.         (askchoice
  47.                 (prompt #toolbar_prompt)
  48.                 (help @askoptions-help)
  49.                 (choices "Yes" "No")
  50.                 (default 0)
  51.         )
  52. )
  53.  
  54. ;(complete 5)
  55. ;(set PL_yes
  56. ;    (askchoice
  57. ;        (prompt #charset_pl_prompt)
  58. ;        (help @askoptions-help)
  59. ;        (choices "Yes" "No")
  60. ;        (default 0)
  61. ;    )
  62. ;)
  63.  
  64. (complete 10)
  65.  
  66. (set NewsCoaster_def_dir @default-dest)
  67.  
  68. ; NewsCoaster location
  69. (set NewsCoaster_dir
  70.         (askdir
  71.                 (default NewsCoaster_def_dir)
  72.                 (prompt  #NewsCoaster_dir)
  73.                 (help    @askdir-help)
  74.         )
  75. )
  76.  
  77. (set NewsCoaster_dir (tackon NewsCoaster_dir "NewsCoaster"))
  78.  
  79. (complete 20)
  80.  
  81. ; make the drawer if it doesn't exist
  82. (if (not (exists NewsCoaster_dir))
  83.         (makedir NewsCoaster_dir (infos))
  84. )
  85.  
  86. ; copy stuff in the root folder
  87. (copyfiles (source "NewsCoaster") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  88. (copyfiles (source "NewsCoaster.guide") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  89. (copyfiles (source "NewsCoaster.readme") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  90. (copyfiles (source "default.index") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  91. (copyfiles (source "gotoURL.rx") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  92.  
  93. ; copy the selected NewsCoaster icon
  94. (if (= Icon_set 0)
  95.         (copyfiles (source "Icons/NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  96. )
  97. (if (= Icon_set 1)
  98.         (copyfiles (source "NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  99. )
  100.  
  101. ; make the Rexx folder, and copy files
  102. (set Rexx_dir (tackon NewsCoaster_dir "Rexx"))
  103. ;(if (= PL_yes 0)
  104.     (if (not (exists Rexx_dir))
  105.         (makedir Rexx_dir (infos))
  106.     )
  107. ;)
  108. ;(if (= PL_yes 0)
  109.     (copyfiles (source "Rexx/after_fetchPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  110.     (copyfiles (source "Rexx/before_sendPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  111. ;)
  112.  
  113. ; make the icons folder and copy files
  114. (set icons_dir (tackon NewsCoaster_dir "icons"))
  115. (if (not (exists icons_dir))
  116.     (makedir icons_dir (infos))
  117. )
  118.  
  119. (if (= Copy_toolbar 0)
  120.     (copyfiles (source "Icons/Main.toolbar") (dest icons_dir) (help @copyfiles-help))
  121. )
  122. (if (= Copy_toolbar 0)
  123.     (copyfiles (source "Icons/Main_G.toolbar") (dest icons_dir) (help @copyfiles-help))
  124. )
  125.  
  126. ; make the spare folder and copy files
  127. ;(set spare_dir (tackon NewsCoaster_dir "spare"))
  128. ;(if (not (exists spare_dir))
  129. ;    (makedir spare_dir (infos))
  130. ;)
  131.  
  132. (complete 60)
  133.  
  134. (copylib (prompt "MUI - BetterString.mcc") (source "MUI/BetterString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  135. (copylib (prompt "MUI - BetterString.mcp") (source "MUI/BetterString.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  136. (copylib (prompt "MUI - NFloattext.mcc")   (source "MUI/NFloattext.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  137. (copylib (prompt "MUI - NList.mcc")        (source "MUI/NList.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  138. (copylib (prompt "MUI - NListview.mcc")    (source "MUI/NListview.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  139. (copylib (prompt "MUI - NListviews.mcp")   (source "MUI/NListviews.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  140. (copylib (prompt "MUI - TextEditor.mcc")   (source "MUI/TextEditor.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  141. (copylib (prompt "MUI - TextEditor.mcp")   (source "MUI/TextEditor.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  142. (copylib (prompt "MUI - NListtree.mcc")   (source "MUI/NListtree.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  143. (copylib (prompt "MUI - NListtree.mcp")   (source "MUI/NListtree.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  144. (copylib (prompt "MUI - Toolbar.mcc")   (source "MUI/Toolbar.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  145. (copylib (prompt "MUI - Toolbar.mcp")   (source "MUI/Toolbar.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  146. (copylib (prompt "MUI - InfoText.mcc")   (source "MUI/InfoText.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  147.  
  148. (complete 100)
  149.  
  150. (message #done "\"" NewsCoaster_dir "\"")
  151.  
  152. (exit (QUIET))
  153.